#!/usr/bin/env perl

#读入一些字符串
chomp(@str = <STDIN>);

#按照ASGII码所有字符串
@sort_str = sort(@str);

#单行输出
print "单行输出\n";
for (@sort_str) {
    print "$_ ";
}

#分行输出
print "\n分行输出\n";
for (@sort_str) {
    print "$_\n";
}
